********************************************************************************
* Democratic candidates
********************************************************************************

use dataset_donors, clear

gen post = 1 if year == 2012
replace post = 0 if year == 2000
gen anyfrackingXpost = anyfracking*post

replace amount_d = 0 if mi(amount_d)
replace ltotamount = log(amount_d + 1)
tabulate year, gen(year_)

eststo clear
eststo: areg ltotamount lnwells year_2 year_3 year_4 year_5 ///
	year_6 year_7 year_8, a(zipcode) cl(zipcode)
estadd local ZFE = "Yes"
estadd local YFE = "Yes"
estadd scalar Nzip = e(N_clust)
eststo: areg ltotamount anywells year_2 year_3 year_4 year_5 ///
	year_6 year_7 year_8, a(zipcode) cl(zipcode)
estadd local ZFE = "Yes"
estadd local YFE = "Yes"
estadd scalar Nzip = e(N_clust)
eststo: areg ltotamount anyfrackingXpost year_7, a(zipcode) cl(zipcode)
estadd local ZFE = "Yes"
estadd local YFE = "Yes"
estadd scalar Nzip = e(N_clust)

keep if highfracking == 1
eststo: areg ltotamount lnwells year_2 year_3 year_4 year_5 ///
	year_6 year_7 year_8, a(zipcode) cl(zipcode)
estadd local ZFE = "Yes"
estadd local YFE = "Yes"
estadd scalar Nzip = e(N_clust)
eststo: areg ltotamount anywells year_2 year_3 year_4 year_5 ///
	year_6 year_7 year_8, a(zipcode) cl(zipcode)
estadd local ZFE = "Yes"
estadd local YFE = "Yes"
estadd scalar Nzip = e(N_clust)
eststo: areg ltotamount anyfrackingXpost year_7, a(zipcode) cl(zipcode)
estadd local ZFE = "Yes"
estadd local YFE = "Yes"
estadd scalar Nzip = e(N_clust)

label variable lnwells "Log wells"
label variable anywells "Any wells"
label variable anyfrackingXpost "Ever fracked X post"

#delimit;

esttab 
	using "_output/tableA11a.tex"
	,
		replace
		booktabs
		order(lnwells anywells anyfrackingXpost)
		cells(b(fmt(3) star) se(par))
		drop(*year* _cons*)
		compress
		label
		gap
		width(\linewidth)
		collabels(none)
		nomtitles
		mgroups(
			"All states" "High fracking states", 
				pattern(1 0 0 1 0 0)
				prefix(\multicolumn{@span}{c}{) suffix(})
				span erepeat(\cmidrule(lr){@span})
		)
		stats(
			YFE
			ZFE
			Nzip
			N,
				label(
					"Year fixed effects"
					"Zip code fixed effects"
					"Clusters"
					"Observations"
				)
				fmt(0 %20.0fc)
		)	
		star(* 0.05 ** 0.01 *** 0.001)
		;
		
#delimit cr

********************************************************************************
* Republican candidates
********************************************************************************

use dataset_donors, clear

gen post = 1 if year == 2012
replace post = 0 if year == 2000
gen anyfrackingXpost = anyfracking*post

replace amount_r = 0 if mi(amount_r)
replace ltotamount = log(amount_r + 1)
tabulate year, gen(year_)

eststo clear
eststo: areg ltotamount lnwells year_2 year_3 year_4 year_5 ///
	year_6 year_7 year_8, a(zipcode) cl(zipcode)
estadd local ZFE = "Yes"
estadd local YFE = "Yes"
estadd scalar Nzip = e(N_clust)
eststo: areg ltotamount anywells year_2 year_3 year_4 year_5 ///
	year_6 year_7 year_8, a(zipcode) cl(zipcode)
estadd local ZFE = "Yes"
estadd local YFE = "Yes"
estadd scalar Nzip = e(N_clust)
eststo: areg ltotamount anyfrackingXpost year_7, a(zipcode) cl(zipcode)
estadd local ZFE = "Yes"
estadd local YFE = "Yes"
estadd scalar Nzip = e(N_clust)

keep if highfracking == 1
eststo: areg ltotamount lnwells year_2 year_3 year_4 year_5 ///
	year_6 year_7 year_8, a(zipcode) cl(zipcode)
estadd local ZFE = "Yes"
estadd local YFE = "Yes"
estadd scalar Nzip = e(N_clust)
eststo: areg ltotamount anywells year_2 year_3 year_4 year_5 ///
	year_6 year_7 year_8, a(zipcode) cl(zipcode)
estadd local ZFE = "Yes"
estadd local YFE = "Yes"
estadd scalar Nzip = e(N_clust)
eststo: areg ltotamount anyfrackingXpost year_7, a(zipcode) cl(zipcode)
estadd local ZFE = "Yes"
estadd local YFE = "Yes"
estadd scalar Nzip = e(N_clust)

label variable lnwells "Log wells"
label variable anywells "Any wells"
label variable anyfrackingXpost "Ever fracked X post"

#delimit;

esttab 
	using "_output/tableA11b.tex"
	,
		replace
		booktabs
		order(lnwells anywells anyfrackingXpost)
		cells(b(fmt(3) star) se(par))
		drop(*year* _cons*)
		compress
		label
		gap
		width(\linewidth)
		collabels(none)
		nomtitles
		mgroups(
			"All states" "High fracking states", 
				pattern(1 0 0 1 0 0)
				prefix(\multicolumn{@span}{c}{) suffix(})
				span erepeat(\cmidrule(lr){@span})
		)
		stats(
			YFE
			ZFE
			Nzip
			N,
				label(
					"Year fixed effects"
					"Zip code fixed effects"
					"Clusters"
					"Observations"
				)
				fmt(0 %20.0fc)
		)	
		star(* 0.05 ** 0.01 *** 0.001)
		;
		
#delimit cr

********************************************************************************
* End
********************************************************************************
